﻿Public Class CTValidacionETO


   Private _IDCat       As Integer 
   Private _Clave       As Integer 
   Private _Valor       As String 
   Private _EsDefault   As Boolean 

   

Public Sub new()
End Sub

Public Sub new (ByVal pIdCat As Integer, ByVal pClave As Integer, ByVal pValor As String, ByVal pEsDefault As Boolean)
  
 _IDCat         = pIdCat 
 _Clave         = pClave 
 _Valor         = pValor 
 _EsDefault     = pEsDefault 

End Sub




Public Property IDCat() As Integer 
    Get
        Return _IDCat 
    End Get
    Set(ByVal value As integer)
        _IDCat = value
    End Set
End Property


Public Property Clave() As integer
    Get
        Return _Clave
    End Get
    Set(ByVal value As integer)
        _Clave = value
    End Set
End Property


Public Property Valor() As String
    Get
        Return _Valor
    End Get
    Set(ByVal value As String)
        _Valor = value
    End Set
End Property


Public Property EsDefault() As Boolean 
    Get
        Return _EsDefault
    End Get
    Set(ByVal value As Boolean )
        _EsDefault = value
    End Set
End Property






End Class
